home *** CD-ROM | disk | FTP | other *** search
/ Font Garden / Font Garden (Walnut Creek) (October 1995) (1995).iso / pc / fontutil / compress / fontcard.sea / FontCard 1.1 / background_2620.xml next >
Extensible Markup Language  |  1992-06-01  |  3KB  |  13 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2620</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <true /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3230.css" />
  10.     <name>EkaTausta</name>
  11.     <script>on V√§litglobal ArvoOliput cd field spaces of cd Eka into ArvoOliask "Default number of spaces for new Font Cards:" with ArvoOliput it into cd field spaces of cd Ekasend closeField to cd field spaces of cd Ekaend V√§liton Varjoglobal ShadowStackanswer "Create bitmap shadows from Font Cards:" with ¬¨"All","Marked","Cancel"If it is Cancel or the number of cds in bg Fontit<2 then exit Varjoset cursor to busyif openShadowStack() thenlock screengo cd 2 of bg Fontitrepeat with i= 2 to the number of cds in bg Fontitpush cdput "processing: " & field FontNameSizeif it is "All" or the marked of this cd then VarjostaKorttipop cdgo next cdend repeatpush cdchoose browse toolgo last cd of stack ShadowStacksort stack by field FontNameSizepop cdhide msganswer "Font Cards' bitmap shadows created."end ifend Varjoon Merkkianswer "With Font Cards' marks do..." with ¬¨"Unmark All","Invert All","Cancel"if it is "Unmark All" thenset cursor to busylock screenunmark all cardsrepeat with i=2 to the number of cards in bg Fontitgo cd i of bg Fontitset cursor to busyset marked of this cd to falseset hilite of bg button Marked to falseend repeatanswer "All Font Cards unmarked."else if it is "Invert All" thenlock screenset cursor to busyrepeat with i= 2 to the number of cds in bg Fontitgo cd i of bg Fontitset cursor to busyset marked of this cd to not the marked of this cdset hilite of bg button Marked to the marked of this cdend repeatgo cd Ekaanswer "Marks of all Font Cards inverted."end ifend Merkkion Tulostaset cursor to busyanswer "With Font Cards do..." with ¬¨"Print All","Print Marked","Cancel"if it is Cancel then exit Tulostahide bg button "Marked" of cd "Fonttikorttien eka"if it is "Print All" thenput (the number of cds in bg Fontit) -1 into Kplif  Kpl > 0 thenlock screenpush cardgo cd 2 of bg Fontitprint Kpl cardspop cardend ifelse if it is "Print Marked" thenunmark cd 1 of bg Fontitunmark cd Ekalock screenprint marked cardsend ifshow bg button "Marked" of cd "Fonttikorttien eka"unlock screenend Tulostaon Tuhoaanswer "With Font Cards do..." with ¬¨"Delete All","...Marked","Cancel"if it is Cancel then exit Tuhoaset cursor to busyput (the number of cds in bg Fontit) -1 into Kplif  Kpl < 1 then exit Tuhoalock screenpush cardgo cd 2 of bg Fontitrepeat Kpl timesset cursor to busyif it is "Delete All" or the marked of this card thensend "doMenu Delete Card" to HyperCardelse go nextend repeatpop cardend Tuhoaon closeCardset the scroll of cd window to "0,0"end closeCardon doMenu Valintaif Valinta is in field Fonts of cd "Fonttikorttien eka" thensend "TeeUusiKortti Valinta" to bg Fontitelse if Valinta is a number thenanswer "Set default font size to "&Valinta&&"?" with OK, Cancelif it is OK thenput Valinta into cd field DefSizeend ifelse if Valinta is "Print Stack..." then Tulostaelse pass doMenuend doMenu</script>
  12. </background>
  13.